home *** CD-ROM | disk | FTP | other *** search
- /*
- ** 7toISO converter (Norwegian conditions)
- **
- ** ARexx script for Thor 2.x
- **
- ** $VER: 1.0 (21.2.96) by Kenneth C. Nilsen
- **
- ** NOTE1: The converted file will be saved with prefix .iso (<file>.iso)
- **
- ** NOTE2: Change <path> (below) to the directory or assign where you have
- ** installed <7toISO>!
- **
- */
-
- path = "c:" /* change this to where you install 7toISO */
-
- Opts = "-M" /* Command options -m =Mac, -M = Mac + PC, none = strange */
-
- temp1 = "t:tempFile"
- temp2 = "t:tempFile.iso"
-
-
- options results
-
- /* Yes, we have stolen a little from other thor arexx scripts ;) */
-
- /* set port, bbs etc. */
-
- thorport = address()
-
- if ~show('p', 'BBSREAD') then do
- address command
- "run >nil: `GetEnv THOR/THORPath`bin/LoadBBSRead"
- "WaitForPort BBSREAD"
- end
-
- address(thorport)
-
- CURRENTMSG stem CONV
- if(rc ~= 0) then
- do
- REQUESTNOTIFY TEXT '"No current message."' BT '"_Ok"'
- exit 0
- end
-
- address command 'c:delete >nil:' Temp1
- address command 'c:delete >nil:' Temp2
-
- /* Save current message to t: */
-
- SAVEMESSAGE CURRENT FILENAME Temp1 NOHEADER NOANSI
-
- /* Convert message */
-
- Address COMMAND path || '7toISO' Opts Temp1 Temp2
-
- /* Display converted message in Thor window */
-
- SHOWTEXT FILENAME Temp2
-
- Exit 0
-